5 DIM S(100)
10 READ N
20 FOR  I= 1 TO N
30    READ S(I)
40 NEXT I
100 FOR I = 1 TO N
200    FOR J = 1 TO N-I
210       LET X=S(J)
220       LET Y = S(J+1)
230       IF X <= Y THEN 300
240       LET S(J) = Y
250       LET S(J+1) = X
300    NEXT J
310 NEXT I
400 FOR I = 1 TO N
410    PRINT S(I);
420 NEXT I
900 DATA 20
910 DATA 5,2,7,3,8,1,9,11,3,15,20,4,0,10,2,16,2,8,9,1
999 END
                                                                                                                                                                                                                                               